Option Explicit
Sub I_Sample001()
    Worksheets(1).PageSetup.PrintTitleRows = "$1:$1"	'N
End Sub
